home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / pwl521q.zip / LITE.BI < prev    next >
Text File  |  1992-11-15  |  7KB  |  198 lines
  1.  
  2. ' ProWindows(tm) LITE 5.20 (Unregistered)
  3. ' Copyright 1988-1992 DSE Software Publishing
  4.  
  5. CONST AUTOCLOSE% = 512
  6. CONST AUTOSCROLL% = 8192
  7. CONST BEEPER% = 2
  8. CONST CLICKER% = 1
  9. CONST DISABLE% = 0
  10. CONST DRAGBAR% = 4
  11. CONST ENABLE% = 1
  12. CONST FLAT% = 128
  13. CONST GLISANDO% = 3
  14. CONST HORZSCROLLBAR% = 8
  15. CONST NOCOMPRESS% = 256
  16. CONST OFFBUTTON% = 1
  17. CONST RESIZEBUTTON% = 2
  18. CONST SELECTABLE% = 64
  19. CONST VERTSCROLLBAR% = 16
  20.  
  21. TYPE wincb
  22.  row AS INTEGER
  23.  col AS INTEGER
  24.  rows AS INTEGER
  25.  cols AS INTEGER
  26.  attr AS INTEGER
  27.  Border AS INTEGER
  28.  Shadow AS INTEGER
  29.  Zoom AS INTEGER
  30.  ptr AS INTEGER
  31.  cbytes AS INTEGER
  32.  abytes AS INTEGER
  33. END TYPE
  34.  
  35. TYPE vircb
  36.  row AS INTEGER
  37.  col AS INTEGER
  38.  rows AS INTEGER
  39.  cols AS INTEGER
  40.  vrow AS INTEGER
  41.  vcol AS INTEGER
  42.  vrows AS INTEGER
  43.  vcols AS INTEGER
  44.  attr AS INTEGER
  45.  Border AS INTEGER
  46.  Shadow AS INTEGER
  47.  Zoom AS INTEGER
  48.  WI AS INTEGER
  49.  Options AS INTEGER
  50.  TitlePos AS INTEGER
  51.  Title AS STRING * 20
  52.  buttons AS INTEGER
  53.  LastButton AS INTEGER
  54.  VertPos AS INTEGER
  55.  HorzPos AS INTEGER
  56.  Signature AS INTEGER
  57. END TYPE
  58.  
  59. TYPE InkeyRec
  60.  Length AS INTEGER
  61.  ShiftState AS INTEGER
  62.  KeyChar AS STRING * 1
  63.  KeyValue AS INTEGER
  64.  AltChar AS STRING * 1
  65.  AltValue AS INTEGER
  66.  ExtChar AS STRING * 2
  67.  ExtValue AS INTEGER
  68. END TYPE
  69.  
  70. TYPE EventCoords
  71.  event AS INTEGER
  72.  row AS INTEGER
  73.  col AS INTEGER
  74. END TYPE
  75.  
  76. TYPE cursorTYPE
  77.  row AS INTEGER
  78.  col AS INTEGER
  79.  attr AS INTEGER
  80. END TYPE
  81.  
  82. DECLARE FUNCTION attr% (f%, b%)
  83. DECLARE FUNCTION BinAttr% (Fore%, Back%, High%, Blink%)
  84. DECLARE FUNCTION BWattr% (Attrib%)
  85. DECLARE FUNCTION CheckMouse% (buttons%)
  86. DECLARE FUNCTION DoubleClick% (DelayTime%)
  87. DECLARE FUNCTION FREEWINDOW% ()
  88. DECLARE FUNCTION GetEvent% (mode%)
  89. DECLARE FUNCTION GetMouse% (row%, col%)
  90. DECLARE FUNCTION GetMousePress% (button%, presses%, row%, col%)
  91. DECLARE FUNCTION GetMouseRelease% (button%, presses%, row%, col%)
  92. DECLARE FUNCTION GetUserCoords% (rw%, cl%, size%, row%, col%)
  93. DECLARE FUNCTION GetVirtualPtr% (winHandle%)
  94. DECLARE FUNCTION IsBWmode% ()
  95. DECLARE FUNCTION Mouse% (button%, cmd%)
  96. DECLARE FUNCTION RAND% (Limit%)
  97. DECLARE FUNCTION ScanQuickKeys% (K$)
  98. DECLARE FUNCTION ScreenMode% ()
  99. DECLARE FUNCTION VideoBoard% ()
  100. DECLARE FUNCTION VideoPage% ()
  101. DECLARE FUNCTION VideoPageLength% ()
  102. DECLARE FUNCTION WhatWindow% (row%, col%)
  103.  
  104. DECLARE SUB ClearWindow ()
  105. DECLARE SUB Click ()
  106. DECLARE SUB CloneWindow (winHandle%)
  107. DECLARE SUB CloseWindow (winHandle%)
  108. DECLARE SUB ColorScreen (row%, col%, rows%, cols%, Attrib%, SNOW%)
  109. DECLARE SUB Copyright (row%, col%)
  110. DECLARE SUB csprint (row%, col%, qattr%, StrDat$)
  111. DECLARE SUB cwcprint (row%, qattr%, StrDat$)
  112. DECLARE SUB cwprint (row%, col%, qattr%, StrDat$)
  113. DECLARE SUB DisplayWindow (winHandle%, row%, col%, rows%, cols%)
  114. DECLARE SUB DrawBox (row%, col%, rows%, cols%, qattr%, brdrsel%)
  115. DECLARE SUB FillBuffer (Segment%, Offset%, size%, char%, Attrib%)
  116. DECLARE SUB FillScreen (row%, col%, rows%, cols%, Attrib%, char%, SNOW%)
  117. DECLARE SUB ForceWindow (winHandle%)
  118. DECLARE SUB GetScreen (row%, col%, rows%, cols%, Segment%, Offset%, SNOW%)
  119. DECLARE SUB GetVideoInfo (Segment%, Offset%, rows%, cols%)
  120. DECLARE SUB GetWindowMouse (button%, frow%, fcol%, frows%, fcols%, row%, col%)
  121. DECLARE SUB GrabWindow (winHandle%)
  122. DECLARE SUB HideWindow (winHandle%)
  123. DECLARE SUB HotPrint (row%, col%, Attr1%, Text$, Attr2%, HotChar$)
  124. DECLARE SUB InitPro ()
  125. DECLARE SUB InitVideo ()
  126. DECLARE SUB MainWindow (winHandle%)
  127. DECLARE SUB MakeWindow (row%, col%, rows%, cols%, qattr%, brdrsel%, Shadow%, Zoom%, SNOW%)
  128. DECLARE SUB MouseCursoroff ()
  129. DECLARE SUB MouseCursorOn ()
  130. DECLARE SUB MoveWindow (winHandle%, row%, col%)
  131. DECLARE SUB Notice ()
  132. DECLARE SUB nprint (row%, col%, qattr%, UsingMask$, Number#)
  133. DECLARE SUB OpenWindow (winHandle%, rows%, cols%, Attrib%, Border%, Shadow%, Zoom%, Options%)
  134. DECLARE SUB PopSound ()
  135. DECLARE SUB PopWindow (row%, col%, rows%, cols%, qattr%, brdrsel%, Shadow%, Zoom%)
  136. DECLARE SUB PreInit ()
  137. DECLARE SUB PutScreen (row%, col%, rows%, cols%, Segment%, Offset%, SNOW%)
  138. DECLARE SUB QuickKey (Location%, Keypress$)
  139. DECLARE SUB ReAlignWindow (winHandle%, row%, col%)
  140. DECLARE SUB ReCycleMode (mode%)
  141. DECLARE SUB RefreshAllWindows ()
  142. DECLARE SUB RefreshMain ()
  143. DECLARE SUB RefreshMode (mode%)
  144. DECLARE SUB RefreshWindow (winHandle%)
  145. DECLARE SUB RemoveSound ()
  146. DECLARE SUB RemoveWindow ()
  147. DECLARE SUB ResetVideo ()
  148. DECLARE SUB ResizeWindow (winHandle%, rows%, cols%)
  149. DECLARE SUB ScrollScreen (row%, col%, rows%, cols%, Attrib%, slines%, sdir%)
  150. DECLARE SUB SeedRand (Value%)
  151. DECLARE SUB SetBWmode (mode%)
  152. DECLARE SUB SetCalendar (Handle%, row%, col%, Attrib%, status%)
  153. DECLARE SUB SetClock (Handle%, row%, col%, Attrib%, status%)
  154. DECLARE SUB SetEventDelay (ticks%)
  155. DECLARE SUB SetMonitorColor (Kolor%)
  156. DECLARE SUB SetMouse (row%, col%)
  157. DECLARE SUB SetMouseMode (newmode%)
  158. DECLARE SUB SetMouseWindow (row%, col%, rows%, cols%)
  159. DECLARE SUB SetShadow (mode%, Attrib%)
  160. DECLARE SUB SetUserCoords (Position%, row%, col%, rows%, cols%)
  161. DECLARE SUB SetVideoInfo (Segment%, Offset%, rows%, cols%)
  162. DECLARE SUB SetWindow (winHandle%)
  163. DECLARE SUB SetZoomSpeed (miliseconds%)
  164. DECLARE SUB SetZoomStyle (FadeMode%)
  165. DECLARE SUB ShowWindow (row%, col%, rows%, cols%, vrow%, vcol%)
  166. DECLARE SUB sprint (row%, col%, Attrib%, StrDat$, SNOW%)
  167. DECLARE SUB termMouse ()
  168. DECLARE SUB TitleWindow (DirPos%, Title$)
  169. DECLARE SUB UnAttr (Attrib%, Fore%, Back%)
  170. DECLARE SUB UnBinAttr (Attrib%, Fore%, Back%, High%, Blink%)
  171. DECLARE SUB UseDrivers (menus%, forms%, cursors%)
  172. DECLARE SUB vprint (row%, col%, Attrib%, StrDat$, SNOW%)
  173. DECLARE SUB wcprint (row%, StrDat$)
  174. DECLARE SUB winCLS (winHandle%)
  175. DECLARE SUB winColor (winHandle%, Fore%, Back%)
  176. DECLARE SUB winDeleteLine (winHandle%)
  177. DECLARE SUB winInsertLine (winHandle%)
  178. DECLARE SUB winLocate (winHandle%, row%, col%)
  179. DECLARE SUB winPos (winHandle%, row%, col%)
  180. DECLARE SUB winPrint (winHandle%, Text$)
  181. DECLARE SUB winPrintCR (winHandle%)
  182. DECLARE SUB winPrintCRLF (winHandle%)
  183. DECLARE SUB winPrintLF (winHandle%)
  184. DECLARE SUB winPrintLn (winHandle%, Text$)
  185. DECLARE SUB winPrintNum (winHandle%, format$, Value#)
  186. DECLARE SUB wlocate (row%, col%)
  187. DECLARE SUB wprint (row%, col%, StrDat$)
  188.  
  189. COMMON SHARED /cursorDATA/ cursor() AS cursorTYPE, CurCursor AS cursorTYPE, curvcb AS vircb, cursorOffset AS INTEGER
  190. COMMON SHARED /DialogData/ Keyboard AS InkeyRec, WindowEvent AS INTEGER, WindowHandle AS INTEGER, MenuItem AS INTEGER, KeyBuffer$
  191. COMMON SHARED /MouseEvents/ DataEvent AS EventCoords, UserEvent AS EventCoords
  192. COMMON SHARED /QuickKey/ QuickKeys AS INTEGER, QuickKeyEvent AS INTEGER
  193. COMMON SHARED /VideoData/ MAXROWS AS INTEGER, MAXCOLS AS INTEGER, VIDEOSEGMENT AS INTEGER, VIDEOOFFSET AS INTEGER
  194. COMMON SHARED /VLSdata/ VirMem() AS INTEGER, vcb() AS vircb, wcbndx() AS INTEGER, CurrentWindow AS INTEGER, UpdateMode AS INTEGER, GlobalOptions AS INTEGER, FreezeFrame AS INTEGER, VideoRecycle AS INTEGER
  195. COMMON SHARED /WindowData/ wcb() AS wincb, scrn() AS INTEGER, WI AS INTEGER, SoundMode AS INTEGER, SNOW AS INTEGER, CreateMode AS INTEGER, ERRNO AS INTEGER
  196. COMMON SHARED /wprintData/ WindowSeg AS INTEGER, WindowOff AS INTEGER, WindowSize AS INTEGER, WindowSig AS INTEGER
  197.  
  198.